 @include "binchop.awk"
 function _binchopped() {
   srand(1)
   print ""; binchopped1()
   print ""; binchopped2()
   print ""; binchopped3()
 }
 function binchopped1(   max,n,data,bins,b) {
   #srand(1)
   max=100;
   n=max; while(n--) data["p1"][n] = normal(13,1)
   n=max; while(n--) data["p2"][n] = normal(20,1)
   n=max; while(n--) data["p3"][n] = normal(20,1)
   n=max; while(n--) data["p4"][n] = normal(20,1)
   n=max; while(n--) data["p5"][n] = normal(20,1)
   n=max; while(n--) data["p6"][n] = normal(30,1)
   binchop(data,bins)
   for(b in bins)
     print bins[b]["key"], bins[b]["chop"] | "sort -n -k 2"
   close("sort -n -k 2")
 }

 function binchopped2(   max,n,data,bins,b) {
   #srand(1)
   max=100;
   n=max; while(n--) data["p1"][n] = normal(20,1)
   n=max; while(n--) data["p2"][n] = normal(20,1)
   n=max; while(n--) data["p3"][n] = normal(20,1)
   n=max; while(n--) data["p4"][n] = normal(20,1)
   n=max; while(n--) data["p5"][n] = normal(20,1)
   n=max; while(n--) data["p6"][n] = normal(20,1)
   binchop(data,bins)
   for(b in bins)
     print bins[b]["key"], bins[b]["chop"] | "sort -n -k 2"
   close("sort -n -k 2")
 }

 function binchopped3(   max,n,data,bins,b) {
   #srand(1)
   max=100;
   n=max; while(n--) data["p1"][n] = normal(20,1)
   n=max; while(n--) data["p2"][n] = normal(20,1)
   n=max; while(n--) data["p3"][n] = normal(20,1)
   n=max; while(n--) data["p4"][n] = normal(30,1)
   n=max; while(n--) data["p5"][n] = normal(30,1)
   n=max; while(n--) data["p6"][n] = normal(30,1)
   binchop(data,bins)
   for(b in bins)
     print bins[b]["key"], bins[b]["chop"] | "sort -n -k 2"
   close("sort -n -k 2")
 }

